00100	C  SCORE SUBROUTINE TO REPLACE THE LINEN UNIT GENERATOR.
00200	
00300		SUBROUTINE SUBR
00400	 	COMMON /INS/ INST(27),BG(60)
00500		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF
00600	
00700		IF(IPAR.EQ.13)GO TO 1
00800		PX9=P(9)
00900	C  SAVE THE DUR. OF TRPT'S ENV.
01000		RETURN
01100	
01200	1	X=PX9
01300		IF(X.GT.10)GO TO 11
01400		P(4)=0
01500		P(7)=3/P(2)
01600	C  THE RISE TIME(IN SEG STEPS) OF ATTACK PORTION.
01700		P(9)=7/P(2)
01800	C  THE DECAY OF ATTACK PEAK.
01900		IF(X.EQ.10)GO TO 10
02000	22	P(11)=100-10/P(2)
02100	C  THE FINAL DECAY. - AFTER THE STEADY STATE PORTION.
02200	C  SO THAT STEPS DON'T GO BACKWARDS
02300		P(12)=0
02400	23	IF(P(11).LT.P(9))P(11)=P(9)
02500		RETURN
02600	
02700	10	P(11)=100-7/PX2
02800	20	P(12)=.3
02900		GO TO 23
03000	
03100	11	P(4)=.3
03200		P(12)=.3
03300		DO 21 K=6,10,2
03400	21	P(K)=.6
03500	C  SETS ALL AMPLS. TO .6 FOR STEADY STATE.
03600	C  USES STEP NUMBERS ALREADY PRESENT
03700		P(7)=7/PX2
03800		P(9)=P(7)
03900		IF(X.EQ.12)GO TO 22
04000		GO TO 10
04100		END
04200	
04300